


USB UART (2) 


part 2: setting the port currents 


Although the Elektor Electronics USB interface described in the September 
2000 issue allows the port current to be set for only one port, the port 
IC allows the current to be set for each pin. 


The module USBuart.bas provides the sub- 
routine Sub WriIsink Pin, Wert. The 
parameter Pin may have a value of 0 through 
7 for port pins POO through P07 or 8 through 
11 for port pins P10 through P13. Listing 1 
shows a simple program for setting the sink 
currents of all four Port 1 outputs, while Fig- 
ure 1 shows the associated screen display. 

The microcontroller contains a simple 4-bit 
DAC for each port pin, consisting of four 
weighted current sources. We can ask our- 
selves if we can't use this for something more 
worthwhile than just controlling the bright- 
ness of a few LEDs. In principle, a resistor is 
all we need to convert the controlled current 
into an output voltage. A 200-Q resistor con- 
nected to Port 1 (see Figure 2) yields a good 
output voltage range for a sink current of up 
to 15 mA. 

To check the linearity of this arrangement, 
the output voltage was measured for all 16 
current settings. The results are shown in 
Table 1. These results have also been evalu- 
ated graphically using Excel. As can be seen 
from Figure 3, the linearity is good. 

The current output can be used to make a 
simple programmable power supply. Figure 4 
shows a sample circuit using an L272 power 
opamp. The zero crossing and slope can be 
independently adjusted. If necessary, the 
adjustment range can be made smaller, for 
example 3.5 to 5 V. 


A simple A/D converter 


We can also utilise the D/A settings of the 
port pins to construct a simple A/D converter. 
In this case, all we want to do is measure 
resistance values. The resistor to be mea- 
sured must be connected between a port pin 
and Vcc. The method is based on the experi- 
mentally determining the sink current setting 
needed to have the voltage on the port pin in 
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Figure |. Screen display for the program LED.FRM. 


question appear to be Low, given 
the connected resistor value. 
Figure 5 shows how a simple 
analogue input function can be 
obtained by connecting eight poten- 
tiometers to Port 1. For Port 0, an 
adjustment range of around 2 kQ to 
12 kQ gives the best results. Lower 
resistance values are needed for the 
same arrangement on Port 1, since 
this port has a greater sink current. 
For each analogue conversion, the 
sink current is increased stepwise 
until the comparator switches 
states. This means that each mea- 
surement requires up to 16 output 
transactions and 16 input transac- 
tions. Since a control access via the 
USB port requires 4 ms, each mea- 
surement takes up to 256 ms. Con- 
sequently, a set of measurements for 


all eight channels will take around 
two seconds. 
Listing 2 shows a program for 
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Figure 2. Controlling an output voltage 


via P1.3. 
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Figure 3. Output voltage vs. control byte value. 
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Figure 4. A programmable voltage source. 


Table |. 

Voltages measured on P1.3. 
Current step Voltage 
0 4.29 V 

l 4.09 V 

2 3.90 V 

3 3.70 V 
4 3.51 V 
5 3.32 V 

6 3.15 V 

7 2.96 V 
8 2.79 V 

9 2.61 V 
10 2.43 V 
II 2.24 V 
12 2.06 V 
13 1.89 V 
14 1.71 V 
I5 1.54 V 
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Listing |. 
USBuart2.vbp 


Private Sub Form _Load() 
WrPort0 Wert 
End Sub 


Private Sub HScrolll Change() 
Wert = HScrolll.Value 
WrIsink 8, Wert 
Label5.Caption = Str$(Wert) 

End Sub 


Private Sub HScroll2_ Change() 
Wert = HScroll2.Value 
WrIsink 9, Wert 
Label6.Caption = Str$(Wert) 

End Sub 
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Figure 5. Connecting potentiometers for 
analogue inputs. 
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Figure 6. An 8-channel analogue display. 


Private Sub HScroll3_Change() 
Wert = HScroll13.Value 
WrIsink 10, Wert 
Label7.Caption = Str$(Wert) 

End Sub 


Private Sub HScroll4 Change() 
Wert = HScroll4.Value 
WrIsink 11, Wert 
Label8.Caption = Str$(Wert) 

End Sub 
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polling and displaying eight port settings. For 
a change, here we use sliders as indicators 


Listing 2. 


Using the USB-UART as an 8-channel A/D converter 


Function ADCh0() 
WrIsink 0, 0 


Ain = 0 

While ((RdPort0 And 1) > 0) And (Ain < 15) 
Ain = Ain + 1 
WrIsink 0, Ain 

Wend 

ADChO = Ain 


End Function 


Function ADCh1() 
WrIsink 1, 0 


Ain = 0 

While ((RdPort0 And 2) > 0) And (Ain < 15) 
Ain = Ain + 1 
WrIsink 1, Ain 

Wend 

ADCh1 = Ain 


End Function 


Function ADCh2() 
WrIsink 2, 0 


Ain = 0 

While ((RdPort0 And 4) > 0) And (Ain < 15) 
Ain = Ain + 1 
WrIsink 2, Ain 

Wend 

ADCh2 = Ain 


End Function 


Function ADCh3() 
WrIsink 3, 0 


Ain = 0 

While ((RdPort0 And 8) > 0) And (Ain < 15) 
Ain = Ain + 1 
WrIsink 3, Ain 

Wend 

ADCh3 = Ain 


End Function 


Function ADCh4() 
WrIsink 4, 0 


Ain = 0 

While ((RdPort0 And 16) > 0) And (Ain < 15) 
Ain = Ain + 1 
WrIsink 4, Ain 

Wend 

ADCh4 = Ain 


End Function 


Function ADCh5() 
WrIsink 5, 0 
Ain = 0 
While ((RdPort0 And 32) > 0) And (Ain < 15) 
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rather than control elements. The 
sliders shown on the screen are 


tiometers. 


Ain = Ain +1 
WrIsink 5, Ain 
Wend 
ADCh5 = Ain 
End Function 


Function ADCh6() 
WrIsink 6, 0 
Ain = 0 
While ((RdPort0 And 64) > 0) And (Ain < 15) 
Ain = Ain + 1 
WrIsink 6, Ain 
Wend 
ADCh6 = Ain 
End Function 


Function ADCh7() 
WrIsink 7, 0 
Ain = 0 
While ((RdPort0 And 128) > 0) And (Ain < 15) 
Ain = Ain + 1 
WrIsink 7, Ain 
Wend 
ADCh7 = Ain 
End Function 


Private Sub Form_Load() 
WrPort0 Wert 
End Sub 


Private Sub Timerl Timer() 
Value = ADCh0() 
HScrolll.Value = Value 
Label9.Caption = Str$(Value) 
Value = ADCh1() 
HScroll2.Value = Value 
Label10.Caption = Str$(Value) 
Value = ADCh2() 
HScroll3.Value = Value 
Label1ll1.Caption = Str$(Value) 
Value = ADCh3() 
HScroll4.Value = Value 
Label12.Caption = Str$(Value) 
Value = ADCh4() 
HScrol15.Value = Value 
Label13.Caption = Str$(Value) 
Value = ADCh5() 
HScroll6.Value = Value 
Label14.Caption = Str$(Value) 
Value = ADCh6() 
HScroll7.Value = Value 
Label15.Caption = Str$(Value) 
Value = ADCh7() 
HScrol18.Value = Value 
Label16.Caption = Str$(Value) 

End Sub 
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